home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Game / S / Slug A & B.cpt / Slug A / card_3361.txt < prev    next >
Text File  |  1989-04-19  |  6KB  |  301 lines
  1. -- card: 3361 from stack: in
  2. -- bmap block id: 4589
  3. -- flags: 0000
  4. -- background id: 2627
  5. -- name: STATCARD
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=486 top=296 right=316 bottom=503
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 15420 / 15420
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: prev
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   play "Cheer"
  23.   go to prev card
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 3 (button)
  29. -- low flags: 00
  30. -- high flags: 2000
  31. -- rect: left=486 top=317 right=337 bottom=503
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 16560 / 16560
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: next
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   play "Cheer"
  43.   go to next card
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 4 (button)
  49. -- low flags: 00
  50. -- high flags: 2000
  51. -- rect: left=482 top=274 right=294 bottom=506
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 11045 / 11045
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Go home
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   visual effect iris close
  63.   go home
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 6 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=463 top=330 right=342 bottom=479
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: stat button
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.  
  83.  
  84.   global winner,ko,f1,f2,first1,first2,rd,score1,score2,repeet,loaded
  85.   put 0 into there
  86.   put empty into fs1
  87.   put empty into fs2
  88.   repeat with i=1 to 20-length(f1)-length(first1)
  89.     put fs1&" " into fs1
  90.   end repeat
  91.   repeat with i=1 to 20-length(f2)-length(first2)
  92.     put fs2&" " into fs2
  93.   end repeat
  94.  
  95.   repeat with i=1 to the number of words of card field "Stats"
  96.     put word i of card field "Stats" into j
  97.     if j=f1
  98.     then
  99.     put word i+1 of card field "Stats" into w
  100.     put word i+3 of card field "Stats" into l
  101.     put word i+4 of card field "Stats" into ko2
  102.     if winner=f1 then
  103.       put w+1 into word I+1 of card field "Stats"
  104.     else
  105.       put l+1 into word i+3 of card field "Stats"
  106.     end if
  107.     if ko=f1 then put ko2+1 into word I+4 of card field "Stats"
  108.     put 1 into there
  109.     exit repeat
  110.   end if
  111. end repeat
  112.  
  113. put empty into w
  114. put empty into l
  115. put empty into i
  116. put empty into j
  117. put empty into ko2
  118.  
  119. if there<>1 then
  120.   put first1&&f1&fs1 after card field "Stats"
  121.   if winner=f1 then
  122.     put "1 - 0    " after card field "Stats"
  123.   else
  124.     put "0 - 1    " after card field "Stats"
  125.   end if
  126.   if ko=f1 then
  127.     put "1" after card field "Stats"
  128.   else
  129.     put "0" after card field "Stats"
  130.   end if
  131. end if
  132.  
  133. put empty into w
  134. put empty into l
  135. put empty into i
  136. put empty into j
  137. put empty into ko2
  138.  
  139. put 0 into there
  140. put return after card field "Stats"
  141. repeat with i=1 to the number of words of card field "Stats"
  142.   put word i of card field "Stats" into j
  143.   if j=f2
  144.   then
  145.   put word i+1 of card field "Stats" into w
  146.   put word i+3 of card field "Stats" into l
  147.   put word i+4 of card field "Stats" into ko2
  148.   if winner=f2 then
  149.     put w+1 into word I+1 of card field "Stats"
  150.   else
  151.     put l+1 into word i+3 of card field "Stats"
  152.   end if
  153.   if ko=f2 then put ko2+1 into word I+4 of card field "Stats"
  154.   put 1 into there
  155.   exit repeat
  156. end if
  157. end repeat
  158.  
  159. put empty into w
  160. put empty into l
  161. put empty into i
  162. put empty into j
  163. put empty into ko2
  164.  
  165. if there<>1 then
  166.   put first2&&f2&fs2 after card field "Stats"
  167.   if winner=f2 then
  168.     put "1 - 0    " after card field "Stats"
  169.   else
  170.     put "0 - 1    " after card field "Stats"
  171.   end if
  172.   if ko=f2 then
  173.     put "1" after card field "Stats"
  174.   else
  175.     put "0" after card field "Stats"
  176.   end if
  177. end if
  178.  
  179. put empty into w
  180. put empty into l
  181. put empty into i
  182. put empty into j
  183. put empty into ko2
  184.  
  185. put winner&&"won " into b
  186. if ko="none" then
  187.   if winner=f1 then
  188.     put score1&&"-"&&score2 into it
  189.   else
  190.     put score2&&"-"&&score1 into it
  191.   end if
  192.   put b&"by decision, "&it into b
  193. else
  194.   put b&"by knockout in round "&rd&"." into b
  195. end if
  196. put first1&&f1&&"vs."&&first2&&f2&return&"in a "&repeet&&"round bout."&RETURN&b into card field "LastFight"
  197. put 0 into loaded
  198. end mouseUp
  199.  
  200.  
  201.  
  202.  
  203. -- part 7 (field)
  204. -- low flags: 00
  205. -- high flags: 0007
  206. -- rect: left=10 top=102 right=332 bottom=236
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 0
  210. -- font id: 4
  211. -- text size: 9
  212. -- style flags: 0
  213. -- line height: 12
  214. -- part name: Stats
  215.  
  216.  
  217. -- part 8 (field)
  218. -- low flags: 00
  219. -- high flags: 0002
  220. -- rect: left=249 top=151 right=204 bottom=501
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 21
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: LastFight
  229.  
  230.  
  231. -- part 9 (field)
  232. -- low flags: 00
  233. -- high flags: 0002
  234. -- rect: left=303 top=44 right=77 bottom=428
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 0
  238. -- font id: 21
  239. -- text size: 24
  240. -- style flags: 12288
  241. -- line height: 32
  242. -- part name: 
  243.  
  244.  
  245. -- part 10 (field)
  246. -- low flags: 00
  247. -- high flags: 0002
  248. -- rect: left=10 top=81 right=100 bottom=85
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 0
  252. -- font id: 21
  253. -- text size: 12
  254. -- style flags: 256
  255. -- line height: 16
  256. -- part name: 
  257.  
  258.  
  259. -- part 11 (field)
  260. -- low flags: 00
  261. -- high flags: 0002
  262. -- rect: left=249 top=129 right=148 bottom=324
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 21
  267. -- text size: 12
  268. -- style flags: 256
  269. -- line height: 16
  270. -- part name: 
  271.  
  272.  
  273. -- part contents for card part 7
  274. ----- text -----
  275. James "Quick" Tillis 1 - 1    0
  276. Frank Bruno          2 - 2    0
  277. Mike Tyson           3 - 2    2
  278. Trevor Berbick       0 - 2    0
  279. Muhammad Ali         3 - 1    1
  280. Hurricane Jackson    0 - 1    0
  281. Joe Louis            1 - 0    0
  282.  
  283.  
  284.  
  285. -- part contents for card part 8
  286. ----- text -----
  287. Muhammad Ali vs. Trevor Berbick
  288. in a 2 round bout.
  289. Ali won by decision, 32 - 22
  290.  
  291. -- part contents for card part 9
  292. ----- text -----
  293. Slug Stats
  294.  
  295. -- part contents for card part 10
  296. ----- text -----
  297. Standings
  298.  
  299. -- part contents for card part 11
  300. ----- text -----
  301. Last Fight